Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / idecla2 / apitypes.asc < prev next >

Wrap

Text File | 1994-06-27 | 11.1 KB | 579 lines

Type RECT left As Integer top As Integer right As Integer bottom As Integer End Type Type POINTAPI x As Integer y As Integer End Type Type SIZEAPI x As Integer y As Integer End Type Type PARAMETERBLOCK wEnvSeg As Integer lpCmdLine As Long lpCmdShow As Long dwReserved As Long End Type Type OFSTRUCT cBytes As String * 1 fFixedDisk As String * 1 nErrCode As Integer reserved As String * 4 szPathName As String * 128 End Type Type BITMAP bmType As Integer bmWidth As Integer bmHeight As Integer bmWidthBytes As Integer bmPlanes As String * 1 bmBitsPixel As String * 1 bmBits As Long End Type Type RGBTRIPLE rgbtBlue As String * 1 rgbtGreen As String * 1 rgbtRed As String * 1 End Type Type RGBQUAD rgbBlue as String * 1 rgbGreen As String * 1 rgbRed As String * 1 rgbReserved As String * 1 End Type Type BITMAPCOREHEADER bcSize as Long bcWidth As Integer bcHeight As Integer bcPlanes As Integer bcBitCount As Integer End Type Type BITMAPINFOHEADER biSize As Long biWidth As Long biHeight As Long biPlanes As Integer biBitCount As Integer biCompression As Long biSizeImage As Long biXPelsPerMeter As Long biYPelsPerMeter As Long biClrUsed As Long biClrImportant As Long End Type Type BITMAPINFO bmiHeader as BITMAPINFOHEADER bmiColors As String * 128 'Array length is arbitrary; may be changed End Type Type BITMAPCOREINFO bmciHeader As BITMAPCOREHEADER bmciColors As String * 48 'Array length is arbitrary; may be changed End Type Type BITMAPFILEHEADER bfType As Integer bfSize As Long bfReserved1 As Integer bfReserved2 As Integer bfOffBits As Long End Type ' Clipboard Metafile Picture Structure Type HANDLETABLE objectHandle As String * 512 'Array length is arbitrary; may be changed End Type Type METARECORD rdSize As Long rdFunction As Integer rdParm As String * 512 'Array length is arbitrary; may be changed End Type Type METAFILEPICT mm As Integer xExt As Integer yExt As Integer hMF As Integer End Type Type METAHEADER mtType As Integer mtHeaderSize As Integer mtVersion As Integer mtSize As Long mtNoObjects As Integer mtMaxRecord As Long mtNoParameters As Integer End Type Type TEXTMETRIC tmHeight As Integer tmAscent As Integer tmDescent As Integer tmInternalLeading As Integer tmExternalLeading As Integer tmAveCharWidth As Integer tmMaxCharWidth As Integer tmWeight As Integer tmItalic As String * 1 tmUnderlined As String * 1 tmStruckOut As String * 1 tmFirstChar As String * 1 tmLastChar As String * 1 tmDefaultChar As String * 1 tmBreakChar As String * 1 tmPitchAndFamily As String * 1 tmCharSet As String * 1 tmOverhang As Integer tmDigitizedAspectX As Integer tmDigitizedAspectY As Integer End Type Type NEWTEXTMETRIC tmHeight As Integer tmAscent As Integer tmDescent As Integer tmInternalLeading As Integer tmExternalLeading As Integer tmAveCharWidth As Integer tmMaxCharWidth As Integer tmWeight As Integer tmItalic As String * 1 tmUnderlined As String * 1 tmStruckOut As String * 1 tmFirstChar As String * 1 tmLastChar As String * 1 tmDefaultChar As String * 1 tmBreakChar As String * 1 tmPitchAndFamily As String * 1 tmCharSet As String * 1 tmOverhang As Integer tmDigitizedAspectX As Integer tmDigitizedAspectY As Integer ntmFlags As Long ntmSizeEM As Integer ntmCellHeight As Integer ntmAvgWidth As Integer End Type ' Pel Array Type PELARRAY paXCount As Integer paYCount As Integer paXExt As Integer paYExt As Integer paRGBs As Integer End Type ' Logical Brush (or Pattern) Type LOGBRUSH lbStyle As Integer lbColor As Long lbHatch As Integer End Type ' Logical Pen Type LOGPEN lopnStyle As Integer lopnWidth As POINTAPI lopnColor As Long End Type Type PALETTEENTRY peRed As String * 1 peGreen As String * 1 peBlue As String * 1 peFlags As String * 1 End Type ' Logical Palette Type LOGPALETTE palVersion As Integer palNumEntries As Integer palPalEntry As String * 252 'Array length is arbitrary; may be changed End Type ' Logical Font Type LOGFONT lfHeight As Integer lfWidth As Integer lfEscapement As Integer lfOrientation As Integer lfWeight As Integer lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 End Type Type NEWLOGFONT lfHeight As Integer lfWidth As Integer lfEscapement As Integer lfOrientation As Integer lfWeight As Integer lfItalic As String * 1 lfUnderline As String * 1 lfStrikeOut As String * 1 lfCharSet As String * 1 lfOutPrecision As String * 1 lfClipPrecision As String * 1 lfQuality As String * 1 lfPitchAndFamily As String * 1 lfFaceName As String * 32 lfFullName As String * 64 lfStyle As String * 32 End Type Type EVENTMSG message As Integer paramL As Integer paramH As Integer time As Long End Type ' Message structure Type MSG hwnd As Integer message As Integer wParam As Integer lParam As Long time As Long pt As POINTAPI End Type Type PAINTSTRUCT hdc As Integer fErase As Integer rcPaint As RECT fRestore As Integer fIncUpdate As Integer rgbReserved As String * 16 End Type Type CREATESTRUCT lpCreateParams As Long hInstance As Integer hMenu As Integer hwndParent As Integer cy As Integer cx As Integer y As Integer x As Integer style As Long lpszName As Long lpszClass As Long ExStyle As Long End Type Type MEASUREITEMSTRUCT CtlType As Integer CtlID As Integer itemID As Integer itemWidth As Integer itemHeight As Integer itemData As Long End Type ' DRAWITEMSTRUCT for ownerdraw Type DRAWITEMSTRUCT CtlType As Integer CtlID As Integer itemID As Integer itemAction As Integer itemState As Integer hwndItem As Integer hDC As Integer rcItem As RECT itemData As Long End Type ' DELETEITEMSTRUCT for ownerdraw Type DELETEITEMSTRUCT CtlType As Integer CtlID As Integer itemID As Integer hwndItem As Integer itemData As Long End Type ' COMPAREITEMSTRUCT for ownerdraw sorting Type COMPAREITEMSTRUCT CtlType As Integer CtlID As Integer hwndItem As Integer itemID1 As Integer itemData1 As Long itemID2 As Integer itemData2 As Long End Type Type MENUITEMTEMPLATEHEADER versionNumber As Integer offset As Integer End Type Type MENUITEMTEMPLATE mtOption As Integer mtID As Integer mtString As String *1 End Type Type DCB Id As String * 1 BaudRate As Integer ByteSize As String * 1 Parity As String * 1 StopBits As String * 1 RlsTimeout As Integer CtsTimeout As Integer DsrTimeout As Integer Bits1 As String * 1 Bits2 As String * 1 XonChar As String * 1 XoffChar As String * 1 XonLim As Integer XoffLim As Integer PeChar As String * 1 EofChar As String * 1 EvtChar As String * 1 TxDelay As Integer End Type Type COMSTAT Bits As String * 1 cbInQue As Integer cbOutQue As Integer End Type Type MDICREATESTRUCT szClass As Long szTitle As Long hOwner As Integer x As Integer y As Integer cx As Integer cy As Integer style As Long lParam As Long End Type Type CLIENTCREATESTRUCT hWindowMenu As Integer idFirstChild As Integer End Type Type MULTIKEYHELP mkSize As Integer mkKeylist As String * 1 szKeyphrase As String * 253 'Array length is arbitrary; may be changed End Type Type WINDOWPLACEMENT length As Integer showCmd As Integer ptMinPosition AS POINTAPI ptMaxPosition AS POINTAPI rcNormalPosition As RECT End Type Type WNDCLASS style As Integer lpfnWndProc As Long 'Note: address of function here cbClsExtra As Integer cbWndExtra As Integer hInstance As Integer hIcon As Integer hCursor As Integer hbrBackground As Integer lpszMenuName As Long 'Resource ID or far pointer to name lpszClassName As Long 'Far pointer to name End Type Type ABC abcA As Integer abcB As Integer abcC As Integer End Type Type PANOSE bFamilyType As String * 1 bSerifStyle As String * 1 bWeight As String * 1 bProportion As String * 1 bContrast As String * 1 bStrokeVariation As String * 1 bArmStyle As String * 1 bLetterform As String * 1 bMidline As String * 1 bXHeight As String * 1 End Type Type OUTLINETEXTMETRIC otmSize As Integer otmTextMetrics As TEXTMETRIC otmFIller As String * 1 otmPanoseNumber As PANOSE otmfsSelection As Integer otmfsType As Integer otmsCharSlopeRise As Integer otmsCharSlopeRun As Integer otmEMSquare As Integer otmAscent As Integer otmDescent As Integer otmLineGap As Integer otmCapEmHeight As Integer otmXHeight As Integer otmrcFontBox As RECT otmMacAscent As Integer otmMacDescent As Integer otmMacLineGap As Integer otmusMinimumPPEM As Integer otmptSubscriptSize As POINTAPI otmptSubscriptOffset As POINTAPI otmptSuperscriptSize As POINTAPI otmptSuperscriptOffset As POINTAPI otmsStrikeoutSize As Integer otmsStrikeoutPosition As Integer otmsUnderscoreSize As Integer otmsUnderscorePosition As Integer otmpFamilyName As Integer otmpFaceName As Integer otmpStyleName As Integer otmpFullName As Integer End Type Type RASTERIZERSTATUS nSize As Integer wFlags As Integer nLanguageID As Integer End Type Type GLYPHMETRICS gmBlackBoxX As Integer gmBlackBoxY As Integer gmptGlyphOrigin As POINTAPI gmCellIncX As Integer gmCellIncY As Integer End Type Type FIXED fract As Integer value As Integer End Type Type MAT2 eM11 As FIXED eM12 As FIXED eM21 As FIXED eM22 As FIXED End Type Type POINTFX x As FIXED y As Fixed End Type Type TTPOLYGONHEADER cb As Long dw As Long pfxStart As POINTFX end Type Type TTPOLYCURVE wType As Integer cpfx As Integer apfx As POINTFX end Type Type DOCINFO cbSize As Integer lpszDocName As Long lpszOutput As Long End Type Type WINDEBUGINFO flags As Integer dwOptions As Long dwFilter As Long achAllocModule As String * 8 dwAllocBreak As Long dwAllocCount As Long End Type Type DEVMODE dmDeviceName As String *32 dmSpecVersion As Integer dmDriverVersion As Integer dmSize As Integer dmDriverExtra As Integer dmFields As Long dmOrientation As Integer dmPaperSize As Integer dmPaperLength As Integer dmPaperWidth As Integer dmScale As Integer dmCopies As Integer dmDefaultSource As Integer dmPrintQuality As Integer dmColor As Integer dmDuplex As Integer dmYResolution As Integer dmTTOption As Integer End Type Type FIXEDFILEINFO dwSignature As Long dwStrucVersion As Long dwFileVersionMS As Long dwFileVersionLS As Long dwProductVersionMS As Long dwProductVersionLS As Long dwFileFlagsMask As Long dwFileFlags As Long dwFileOS As Long dwFileType As Long dwFileSubtype As Long dwFileDateMS As Long dwFileDateLS As Long End Type Type HELPWININFO wStructSize As Integer x As Integer y As Integer dx As Integer dy As Integer wMax As Integer rgchMember As String *2 End Type